home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
egyptw.dir
/
01718_Script_Women
< prev
next >
Wrap
Text File
|
1995-09-13
|
12KB
|
447 lines
global gQuest, gBeenClicked
on EWomenRollovers1
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(7) or rollover(8) then
repeat while rollover(7) or rollover(8)
EgyptCursor
puppetsprite 11, true
set the locH of sprite 11 to 406
set the locV of sprite 11 to 255
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
ReepingMen
end repeat
end if
end if
end repeat
set the locH of sprite 11 to 906
puppetsprite 11, false
updatestage
else
if rollover(6) then
EgyptCursor
repeat while rollover(6)
set the locH of sprite 12 to 242
set the locV of sprite 12 to 302
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateloopFast 6, 1095, 3, "SE340301.AIF", 3
end repeat
end if
end if
end repeat
set the locH of sprite 12 to 942
updatestage
else
if rollover(9) then
ArrowCursor
repeat while rollover(9)
set the locH of sprite 10 to 419
set the locV of sprite 10 to 150
updatestage
end repeat
set the locH of sprite 10 to 919
updatestage
else
if rollover(13) then
repeat while rollover(13)
ArrowCursor
set the locH of sprite 14 to 358
set the locV of sprite 14 to 281
updatestage
end repeat
set the locH of sprite 14 to 958
updatestage
else
if rollover(15) then
repeat while rollover(15)
ArrowCursor
set the locH of sprite 16 to 304
set the locV of sprite 16 to 151
updatestage
end repeat
set the locH of sprite 16 to 904
updatestage
else
if rollover(17) then
repeat while rollover(17)
ArrowCursor
set the locH of sprite 28 to 513
set the locV of sprite 28 to 297
updatestage
end repeat
set the locH of sprite 28 to 913
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on EWomenRollovers2
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(40) then
repeat while rollover(40)
EgyptCursor
puppetsprite 16, true
set the locH of sprite 16 to 295
set the locV of sprite 16 to 358
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
DancingGirls
end repeat
end if
end if
end repeat
set the locH of sprite 16 to 995
puppetsprite 16, false
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 325
set the locV of sprite 13 to 289
updatestage
end repeat
set the locH of sprite 13 to 925
updatestage
else
if rollover(14) then
repeat while rollover(14)
EgyptCursor
set the locH of sprite 15 to 367
set the locV of sprite 15 to 337
updatestage
if the mousedown then
Puppetsound "se340900.AIF"
end if
end repeat
set the locH of sprite 15 to 967
updatestage
else
if rollover(17) then
repeat while rollover(17)
EgyptCursor
set the locH of sprite 18 to 358
set the locV of sprite 18 to 196
updatestage
if the mousedown then
Puppetsound "PE341100.AIF"
end if
end repeat
set the locH of sprite 18 to 958
updatestage
else
if rollover(19) then
repeat while rollover(19)
ArrowCursor
set the locH of sprite 20 to 317
set the locV of sprite 20 to 257
updatestage
end repeat
set the locH of sprite 20 to 917
updatestage
else
if rollover(21) then
repeat while rollover(21)
EgyptCursor
set the locH of sprite 22 to 305
set the locV of sprite 22 to 291
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
set the locH of sprite 22 to 905
updatestage
repeat while gBeenClicked = 1
MourningGirls
end repeat
end if
end if
end repeat
set the locH of sprite 22 to 905
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on ReepingMen
ArrowCursor
set gAnimationcast1 = 1098
set gAnimationcast2 = 1092
set count = 0
puppetsound "SE340401.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 7 = gAnimationcast1 + 1
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 7 = gAnimationcast1 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 7 = gAnimationcast1
set the castnum of sprite 8 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 7 = gAnimationcast1 + 1
set the castnum of sprite 8 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 7 = gAnimationcast1 + 2
set the castnum of sprite 8 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 7 = gAnimationcast1 + 1
set the castnum of sprite 8 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 7 = gAnimationcast1
set the castnum of sprite 8 = gAnimationcast2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set count = count + 1
end repeat
set the castnum of sprite 7 = gAnimationcast1
set the castnum of sprite 8 = gAnimationcast2
updatestage
puppetsound 0
set gBeenClicked = 0
end
on DanceGirl1ON
set the locH of sprite 6 to 81
set the locV of sprite 6 to 361
updatestage
end
on DanceGirl1OFF
set the locH of sprite 6 to -181
updatestage
end
on DanceGirl2ON
set the locH of sprite 7 to 164
set the locV of sprite 7 to 364
updatestage
end
on DanceGirl2OFF
set the locH of sprite 7 to -181
updatestage
end
on DancingGirls
ArrowCursor
puppetsprite 6, true
puppetsprite 7, true
set count = 0
puppetsound "SE341001.AIF"
repeat while count < 4 and (the mouseUp)
DanceGirl1ON
wait .3
if (the mousedown) then
exit repeat
end if
DanceGirl1Off
DanceGirl2ON
wait .3
DanceGirl2Off
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .3
DanceGirl1On
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .3
DanceGirl2On
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .3
DanceGirl1Off
DanceGirl2Off
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .3
set count = count + 1
end repeat
DanceGirl1OFF
DanceGirl2OFF
updatestage
puppetsprite 6, false
puppetsprite 7, false
sound fadeout 1, 2*60
set gBeenClicked = 0
end
on MourningGirls
ArrowCursor
puppetsprite 9, true
puppetsprite 10, true
puppetsprite 11, true
set gAnimationcast1 = 1076
set count = 0
puppetsound "SE341301.AIF"
repeat while count < 2 and (the mouseUp)
MournGirl1ON
MournGirl3ON
wait .5
if (the mousedown) then
exit repeat
end if
MournGirl1Off
MournGirl2ON
set the castnum of sprite 11 = gAnimationcast1+1
wait .5
MournGirl2Off
set the castnum of sprite 11 = gAnimationcast1
if (the mousedown) then
exit repeat
end if
wait .8
MournGirl1ON
MournGirl3Off
wait .5
if (the mousedown) then
exit repeat
end if
MournGirl1Off
MournGirl2ON
MournGirl3ON
wait .8
MournGirl2Off
MournGirl3Off
if (the mousedown) then
exit repeat
end if
wait .5
set count = count + 1
end repeat
puppetsprite 9, false
puppetsprite 10, false
puppetsprite 11, false
puppetsound 0
set gBeenClicked = 0
end
on MournGirl1ON
set the locH of sprite 9 to 412
set the locV of sprite 9 to 258
updatestage
end
on MournGirl2ON
set the locH of sprite 10 to 577
set the locV of sprite 10 to 339
updatestage
end
on MournGirl3ON
set the locH of sprite 11 to 590
set the locV of sprite 11 to 253
updatestage
end
on MournGirl1Off
set the locH of sprite 9 to -412
updatestage
end
on MournGirl2Off
set the locH of sprite 10 to -577
updatestage
end
on MournGirl3Off
set the locH of sprite 11 to -590
updatestage
end